


FORTRAN 


FORTRAN 2.3 provides a scientific language for programming under 
control of the SCOPE Operating System on Control Data 6000 series 
computers. FORTRAN is compatible with FORTRAN II, FORTRAN IV 
and FORTRAN VI languages. 


Expressions and Statements 

Arithmetic, logical, relational, and masking operations may be speci¬ 
fied for the evaluation of expressions. Arithmetic expressions may 
contain any combination of arithmetic modes. Relational expressions 
contain arithmetic expressions separated by relational operators. 

Logical expressions may contain logical variables, logical constants, 
and relational expressions separated by logical operators. The masking 
expression is a generalized form of the logical expression in which the 
variables are of types other than logical. 

Replacement statements may be arithmetic, logical and masking. 


Variable and Function Types 

Variable and function types may be implied as real or integer by the 
initial character or explicitly defined by a Type declaration as 

COMPLEX INTEGER 

REAL LOGICAL 

DOUBLE or DOUBLE PRECISION 

Control Statements 

Control statements alter sequential execution of statements, perform 
tests and iterations, and terminate subprograms. 

GO TO IF PAUSE 

DO CONTINUE END 

STOP 

Input/Output 

Input/output statements permit the programmer to make use of com¬ 
puter efficiency with a complete range of input/output formats. 


PRINT 

PUNCH 


BUFFER 


WRITE 

READ 



Functions and Subprograms 

Statements and statement sequences may be written as statement func¬ 
tions and as main programs, subroutines, and functions. 


Library 

The FORTRAN library provides a full set of mathematical and utility 
functions and subroutines. 



FORTRAN PROGRAM EFFICIENCY HINTS 

Same mode variables and constants in an arithmetic expression 

Reduced use of subscripts 

Constant subscripts rather than variable 

Arguments in common rather than calling list 

Non-varying values computed before entering DO loop 

Avoid function names as parameters in subprogram calling sequences 

Limited use of logical mode 
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FORTRAN ELEMENTS 


Constants 

Form 

Examples 

Integer 

n,n„ ... n 

1 1 m 

2 


CO 

VI 

E 

VI 

247 



314159265 

Octal 

On, . . . n 

1 m 

7777777700000000B 


6s ms 20 

023146541 


n, . . . n B 

1 m 

0000077 

Real 

n, n„ ... n E±exp, _ 

1 ^ m '^10 

3.14 


1s ms15 

.0749 

314. E05 



.3E01 

Double 

n,n2 ... n^ D±exp,Q 

37986324.3201 D+01 


CO 

VI 

E 

Vi 

3.1415D0 

Complex 

(I'l 

(1 .,6.55) 


real numbers 

(-15.,16.7) 


r^ = real part, 
r 2 = imaginary part 

(o.,-i.) 

Hollerith 

nHf, f„ . .. f 

1 2 n 

7HGOGETIT 


1 s ns 10 for a 
replacement statement 

1 s n s 136 for a 
format statement 

1 s n< 1307 for a 

DATA statement 

3HSON 


f. alphanumeric character 

5HTHANX 

Logical 

.TRUE. .T. 

al 1 one bits 


or stored as 



.FALSE. .F. 

ol 1 zero bits 


Subscripts 


For DIMENSION A(L,M,N) the location of A(i,i,k) with respect to 
first element of A is 

A+(i-l+L*(i-l+M*(l<-l)))*E 

E is the number of words occupied by each element of A. 
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A subscript may be: 



Integer constant 

Simple integer variable 

Simple integer arithmetic expression 


Examples; 

(U) 

(1+3, J+3, 2*K+1) 
(3*K*l+3) 



Variables 

Form 

Examples 

Simple integer 

a,a„...a 

1 2 m 

1 £ m £ 7 

a^ l,J,K,L,M,or N 

N 

I2S04 

MSS 


02 - Oj Alphanumeric 


Simple real 

a,a_.. ,a 

1 2 m 

VECTOR 


1 £ m 7 

a^ Alphabetic other than 

SPOILS 

A65 


l,J,K,L,M,or N 

02 - a^Alphanumeric 


Subscripted integer 

a,a2...a^(i,i,k) 

NERVE (6,8,6) 


1 £ m £ 7 

a^ l,J,K,L,M,or N 

LO (J) 

JEL (l,M,3) 


02 -Oy Alphanumeric 


Subscripted real 

°l°2---am{i'i'^) 

TIMIE (J,K,L) 


1 sm=s7 

a^ Alphabetic other than 

QL (1) 

ROGER (2,2,1) 


l,J,K,L,M,or N 



02 ” a^Alphanumeric 


1 Variables defined by Type declarations begin with 

any letter. 
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FORTRAN STATEMENTS 


A subprogram is compiled in one of two modes: 

FORTRAN IV 
FORTRAN II 

Subprogram 

PROGRAM name (f,,. . \ 

FORTRAN VI PROGRAM name (fi,... ,f^) | 

FORTRAN IV PROGRAM name (f^. . . ,f^) I 

FORTRAN II PROGRAM name (f|,.. .,f|^) / 

SUBROUTINE name (p,,. . .,p ) V 

I m } 

FORTRAN VI SUBROUTINE name (p^,.. .,p^) [ 

FORTRAN IV SUBROUTINE name (p^,.. .,p^) I 

FORTRAN II SUBROUTINE name (p^,...,p^) | 

CALL name (pi/--wPm^ / 

m £ 60 n £ 50 ' 

FUNCTION name (p^,...,p^) 

type FUNCTION name (pp . . .,p^) 

FORTRAN VI FUNCTION name (pp.. .,p^) 

FORTRAN VI type FUNCTION name (pp. . -/Pj^) 

FORTRAN IV FUNCTION name (pp...,p^) 

FORTRAN IV type FUNCTION name (pp...,p^) 

FORTRAN II FUNCTION name (pp...,p^) 

FORTRAN II type FUNCTION name (pp...,Pj^) 

BLOCK DATA 

EXTERNAL namep name 2 ,. • • 

RETURN 
ENTRY name 


Statements 


Parameter 
list may be 
omitted 
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Data Declaration and 
Storage Allocation Statements 

COMPLEX list 
DOUBLE list 

DOUBLE PRECISION list 
REAL list 
INTEGER list 
LOGICAL list 
DIMENSION v^,V 2 ,. • -/V^ 

COMMON/l^/list^/l^/list 2 ... 

EQUIVALENCE (a^,b^,.. .. 

DATA 1 ist^/a^,. . . ,ay,l ist 2 /b^,. . . ,'aj ,... or 
DATA (list 3 =c^,. . .,c^),(list 4 =d^,. . . . 

Statement Function 

name (p^,.. . ,p^ )=expression 

Replacement Statements 

a = Arithmetic expression 
I = Logical expression 
m= Masking expression 

Control Statements 

GO TO n 

GOTO i,(n^,...,n.) 

GO TO i 
ASSIGN n to i 
GO TO (n.|,. . .,n.),i 

IF (a) 0 ^, 02,03 
IF (|)s 
IF (I) n^,n 2 

Format Statement and Specifications 

FORMAT (spec^,...,5pec^) 

Spec. 

Ew.d Single precision floating point with exponent 
Fw.d Single precision floating point without exponent 
Dw.d Double precision floating point with exponent 


DO n i=m^,m 2 ,m 3 
CONTINUE 

PAUSE 
PAUSE n 
STOP 

STOP n 
END 
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Iw 

Decimal integer 

Rw 

Alphanumeric, right justified, leading zeros 

Ow 

Octal Integer 

Aw 

Alphanumeric, left justified, with trailing blanks 

Lw 

Logical 

nP 

Sealing factor 

Complex values are converted by a pair of consecutive Ew.d 

or Fw 

■ d. 

wX 

Intra-I ine spacing 

wH 1 

Heading and labeling, Hollerith characters 

/’ 

Begin new record 


Printer Carriage Control 

Character in first column Resulting PRINT Operation 

0 

Double space before printing 

1 

Eject page before printing 

+ 

Suppress spacing before printing 

blank or other 

than above Single space before printing 


Input/Output and Data Transmission 


READ {i,n) list 

READ INPUT TAPE i,n,list 
WRITE (!,n) list 

WRITE OUTPUT TAPE i,n,list 
READ (i) list 

READ TAPE i,list 
WRITE (i) list 

WRITE TAPE i,list 
IF (EOF,i) n,,n2 
IF (ENDFILE i) n^,n2 
END FILE i 
REWIND i 
BACKSPACE i 
BUFFER IN (i,m) list 
BUFFER OUT (i,m) list 
IF (UNIT, i) n^,n2,n2,n^ 

Busy EOF 

Complete Parity error 
NAMELIST /y,/a/y2/a2/. . ./y/a^ 


READ n, list 
PRINT n, list 
PUNCH n, list 
ENCODE (c,n,v) L 
DECODE (c,n,v) L 
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FORTRAN FUNCTIONS 


In-Line Functions 


ABS(x) 

Absolute value 

Real to real 

AIMAG(c) 

Imaginary part of 
complex 

Complex to real 

AINT(x) 

Truncation, integer 

Real to real 

AMAX0(i^,i2,...) 

Maximum argument 

Integer to real 

AMAXl (x^ jXj,.. •) 

Maximum argument 

Real to real 

AMIN0(i^,i2,...) 

Minimum argument 

Integer to real 

AMINl (x^,X2, • ■ •) 

Minimum argument 

Real to real 

AMOD(x^,X2) 

x^ modulo X 2 

Real to real 

AND(x,,..,x^) 

Boolean AND of 

1 ' n 

Logical 

CMPLX(x^,x2) 

Real to complex 
(x^ + 1 x 2 ) 

Real to complex 

COMPL(x) 

Complement of x 

Logical 

CONJG(c) 

Conjugate of c 

Complex to complex 

DlM(x^ ,X 2 ) 

If x^ > X2:x^-X2 

If x^ £ X2:0 

Real to real 

DMAXl(d^,d2,...) 

Maximum argument 

Double to double 

DMlNl(d^,d2,. ..) 

Minimum argument 

Double to double 

FLOAT(i) 

Integer to real 

Integer to real 

lABS(i) 

Absolute value 

Integer to integer 

lDIM(i^,i2) 

If 

If i^ rs 12=0 

Integer to integer 

IFIX(x) 

Real to integer 

Real to integer 



INT(x) 

Truncation, integer 

Real to integer 

ISIGN(i^,i2) 

Sign of i 2 times | i-jj 

Integer to integer 

MAX0(i^,i2,...) 

Maximum argument 

Integer to integer 

MAX1(x^,X2,...) 

Maximum argument 

Real to Integer 

MIN0(i^,i2,...) 

Minimum argument 

Integer to integer 

MIN1(x^,X2,. . .) 

Minimum argument 

Real to real 

MOD(i^,i2) 

i^ modulo i 2 

Integer to integer 

C 

o 

Boolean OR of 

1 n 

Logical 

REAL(c) 

Real part of complex 

Complex to real 

SIGN(x^,x2) 

Sign of X 2 times | xi| 

Real to real 


Lib 

rary Functions 

ACOS(x) 

Arccosine 

Real to real 

ALOG{x) 

Natural log of x 

Real to real 

ALOGlO(x) 

Log to the base 

10 of X 

Real to real 

ASIN(x) 

Arcsine 

Real to real 

ATAN(x) 

Arctangent x radians 

Real to real 

ATAN2(x^,x2) 

Arctangent x^/x 2 

Real to real 

CABS(c) 

Absolute value 

Complex to real 

CCOS(c) 

Complex cosine 

Complex to complex 

CEXP(c) 

Complex exponent 

Complex to complex 

CLOG(c) 

Complex log 

Complex to complex 

COS{x) 

Cosine X radians 

Real to real 

CSIN(c) 

Complex sine 

Complex to complex 

CSQRT(c) 

Complex square root 

Complex to complex 

DABS(d) 

Absolute value 

Double to real 
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DATAN(d) 

Double arctangent 

Double to double 

DATAN2(d^,d2) 

Double arctangent: 
di/d2 

Double to double 

DBLE(x) 

Real fo double 

Real to double ■ 

DCOS(d) 

Double cosine 

Double to double 

DEXP(d) 

Double exponent 

Double to double 

DLOG(d) 

Natural log of d 

Double to double 

DLOGlO(d) 

Log to base 10 of d 

Double to double 

DMOD(d) 

d^ modulo d 2 

Double to double 

DSIGN(d^,d2) 

Sign of: 62 times d-] 
in absolute value 

Double to double 

DSIN(d) 

Sine of double pre¬ 
cision argument 

Double to double 

DSQRT(d) 

Square root of double 

Double to double 

EXP(x) 

e to xth power 

Real to real 

IDINT(d) 

Double to integer 

Double to integer 

LEGVAR(a) 

Returns -1 if a 
indefinite, 

+1 if a out of range, 

0 if a normal 

Real to integer 

LENGTH(i) 

Number of words 
read on unit i after 
BUFFER IN 

Integer to integer 

RANF(i) 

Random number 
generator 

Integer to real 

SNGL(d) 

Double to real 
(unrounded) 

Double to real 

SIN(x) 

Sine X radians 

Real to real 

SQRT(x) 

Square root of x 

Real to real 

TAN(x) 

Tangent x radians 

Real to real 

TANH(x) 

Fiyperbolic tangent 
x radians 

Real to real 

LOCF(a) 

Address of argument a 

Integer 

XLOCF(a) 

Address of argument a 

Integer 
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DISPLA (nH name, name) 
nS 7 


LIBRARY SUBROUTINE 

DISPLAY NAME AND VALU 


uumr / I r L r \ 

nrMiixn /b-, . ,a ,b ) 

PDUMP 1 1 1 n n n' 

a. First word of area to be dumped 

b. Last word of area to be dumped 

f. Dump format indicators: 

0 or 3 is octal dump 

1 is real dump 

2 is integer dump 


DUMP STORAG 


DVCHK (j) DIVISION BY ZERO TES 

j=l if occurred 
j=2 if not 


FTNBIN(l,n,IRAY) 

READEC(cm,ecs,n) 

WRITEC(cm,ecs,n) 

OPENMS(u,ix,l,p) 

READMS(u,fwa,n,i) 

WRITMS(u,fwa,n,i) 

STINDX(u,ix,l) 


BINARY BLOCKING OF I/O 
TRANSFERS WORDS FROM ECS TO CENT 
MEMORY 

TRANSFERS WORDS FROM CENTRAL 
MEMORY TO ECS 
OPENS MASS STORAGE FILE 
TRANSFERS DATA FROM MASS STORAGE 
FILE 

TRANSFERS DATA TO MASS STORAGE FI 
CHANGES THE FILE INDEX 


EXIT 


TERMINATE EXECUTIO 


OVERFL (i) ^ OVERFLOW TEi 

j=l if occurred 
j=2 if not 


REMARK (nH .. . ) MESSAGE TO SYSTEM DAYFIl 

Displays it on the console display. nH indicates n 
Hollerith characters in the remark; n < 40 


SECOND(i) 


TIME IN SECONDS FROM DEADSTART 



TURN ON SENSE LIGHT 1 
TEST SENSE LIGHT I 

TEST SENSE SWITCH I 


SEGMENT(fn,e,a,lib,m) LOAD RELOCATABLE SEGMENT 

fn Variable name of location containing left-justified 
display code file name to be loaded 

a Segment load level, 00-77g 

a Simple or subscripted variable array name containing 
list of segments, sections, subprograms to be loaded 

lib Load unsatisfied externals fram system library if zero 
or blank 

m Do not print map of segment load if zero or blank 

OVERLAY(fn,l^,l2,p) LOAD ABSOLUTE OVERLAY 

fn Variable name of location containing left-justified 

display code file name to be loaded 

1^ Primary overlay level 

1^ Secondary overlay level 

p If 6HRECALL, overlay is not reloaded if already in 

memory 

FORTRAN VI DIFFERENCES 

END statement in function or 
subroutine acts as RETURN 

DO loop not executed if initial 
value exceeds terminal value 


SLITE (i) 

SLITET (i,j) 

j=l if on 
j=2 if off 

SSWTCH (i,j) 

j=l if down 
j=2 if up 
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FORTRAN II AND FORTRAN IV 
SUBPROGRAMS 

Column 1 Indicators 

D Double precision mode replacement 

I Complex mode replacement 

B Masking replacement 

F EXTERNAL 

FORTRAN II statements which contain a B in column 1 (Boolean) are 
evaluated as masking expressions. The operator equivalences are: 


FORTRAN FORTRAN II 

.AND. 

.NOT. 

.OR. + 

/ 

Statements 

IF (I)n^,n2 

If I is a variable, the true branch is taken only if the 
value of I is negative. 


SENSE LIGHT i 

i must be integer constant 
IF (SENSE LIGHT i)n^,n2 

i must be integer constant 
IF (SENSE SWITCH i)n^,n2 
i must be integer constant 

IF DIVIDE CHECK n^,n2 
IF QUOTIENT OVERFLOW n^,n2 
IF ACCUMULATOR OVERFLOV\/ n^,n2 

FORTRAN 11 Mode Subprogram Only 

EQUIVALENCE may re-order COMMON. 

Function names must end with F and be 4-7 characters. 

Function names must begin with X if the value is integer and 
any other alphabetic character if the value is real. 
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CHARACTER CODES 


Character 

External 

Console 

Display 

Code 

Punch 

Code 

Card 

A 

61 

01 

12,1 

B 

62 

02 

12,2 

C 

63 

03 

12,3 

D 

64 

04 

12,4 

E 

65 

05 

12,5 

F 

66 

06 

12,6 

G 

67 

07 

12,7 

H 

1 

70 

10 

12,8 

71 

11 

12,9 

J 

41 

12 

11,1 

K 

42 

13 

11,2 

L 

43 

14 

11,3 

M 

44 

15 

11,4 

N 

45 

16 

11,5 

O 

46 

17 

11,6 

P 

47 

20 

11,7 

Q 

50 

21 

11,8 

R 

51 

22 

11,9 

S 

22 

23 

0,2 

T 

23 

24 

0,3 

u 

24 

25 

0,4 

V 

25 

26 

0,5 

w 

26 

27 

0,6 

X 

27 

30 

0,7 

Y 

30 

31 

0,8 

Z 

31 

32 

0,9 

0 

1 

12 

33 

0 

01 

34 

1 

2 

02 

35 

2 

3 

03 

36 

3 

4 

04 

37 

4 

5 

05 

40 

5 

6 

06 

41 

6 

7 

07 

42 

7 

8 

10 

43 

8 

9 

11 

44 

9 

/ 

21 

50 

0,1 

+ 

60 

45 

12 

_ 

40 

46 

11 

blank 

20 

55 

space 


73 

57 

12,8,3 

) 

74 

52 

12,8,4 

S 

53 

53 

11,8,3 


54 

47 

11,8,4 


33 

56 

0,8,3 
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( 

34 

51 

0,8,4 


13 

54 

8,3 

= 

36 

60 

0,8,6 

[ 

17 

61 

8,7 

] 

32 

62 

0,8,2 


00 

63 

8,2 


14 

64 

8,4 


35 

65 

0,8,5 

V 

52 

66 

11,0 

A 

37 

67 

0,8,7 

t 

55 

70 

11,8,5 

1 

56 

71 

11,8,6 

< 

72 

72 

12,0 

> 

57 

73 

11,8,7 

< 

15 

74 

8,5 

> 

75 

75 

12,8,5 

~1 

76 

76 

12,8,6 

; , character 77, 

is restricted 

in FORTRAN 




15 




FORTRAN CODING FORM 



Each line of a FORTRAN coding form represents the four fields of a 
punched cord. 


Field 

Columns 

Statement Number 

1-5 

Continuation 

6 

Statement 

7-72 

Identification 

73-80 


Statements may be identified by an integer from 1 through 99999. If 
a S, C or * appears in column 1, the remainder of the cord is ignored 
by the compiler, but printed with the source listing as a comment. 

A S may be used to separate multiple statements on a card. However, 
DATA and FORMAT statements cannot appear on a card separated in 
this manner. 

A punch other than zero in column 6 identifies a card as a continua¬ 
tion of the statement from the preceding card. 

A statement is written in columns 7 through 72; blanks are ignored. 

Columns 73-80 may contain identification and serial numbers. These 
columns are ignored, but printed with the program listing. 

The entire 80 columns may be used for data input. 

A period in column 1 signals page eject. 
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FORTRAN CONTROL CARD 


RUN(cm,fl,bl,if,of,rf,lc,as,cs) 

cm Compiler mode option; if omitted, assume G; if un¬ 

recognized, assume S. 

G Compile and execute, nolist unless explicit 

LIST cords appear in the deck 

S Compile with source list, no execute 

P Compile with source list and punch deck on 

file PUNCHB, no execute 

L Compile with source and object list, no execute 

M Compile with source and object list, produce a 

punch deck on file PUNCHB, no execute 

• f| Object program field lengths; if omitted, it is set equal 

to the field length at compile time. 

bl Object program I/O buffer lengthsg; if omitted, assumed 

to be 2023 B. 

if File name for compiler input; if omitted assumed to be 

INPUT. 

of File name for compiler output; if omitted, assumed to be 

OUTPUT. 

rf File name on which the binary information is always 

written; if omitted, assumed to be LGO. 

Ic Line-limit (octal) on the OUTPUT file of an object 

program. If omitted, assumed to be lOOOOg. If the line 
count exceeds the specified line limit, the job is 
terminated. 

as If non-zero or non-blank, the ASA switch causes the 

ASA I/O list/format interaction at execution time. 

It has no effect on the compilation method. 

cs Cross-reference switch; if non-zero a cross reference 

listing is produced. 

If parameter list is omitted, RUN must be followed by a 
period. 
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FORTRAN COMPILATION 


FORTRAN COMPILATION AND EXECUTION 
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FORTRAN 


JOG123,6,--'00,40000 
























EXECUTION WITH BINARY DECKS 
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'JOBI 23,6,400,27000. 


















PROGRAM ALFRI-D (INPUT,OUTI 


1,2,400,27000, 














FORTRAN 

COMPILE AND EXECUTE WITH MIXED DECK 
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COMPILE AND EXECUTE 
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' ;PT2,5,600,20000 













OVERLAY AND SEGMENT CONTROL CARDS 

SEGMENT (sn,pn^,pn 2 ,• ■ ■/pn^^) SEGMENT DEFINITIONS 

sn Segment name to write on 

pn. Subprogram or section name 

SEGZERO(sn,pn^,pn2,.. .,pn^) FIRST SEGMENT DEFINITION 

sn Segment name to write on 

pn. Subprogram or section name 

SECTION(sn,pn^,pn 2 ,.../pn^) SECTION DEFINITION 

sn Section name to write on 

pn. Subprogram name 

OVERLAY(fn,l.|,l2,cnnnnnn) OVERLAY DEFINITION 

fn File name to write on; may be omitted after first, 
if same file 

1^ Primary level number; 0 for first overlay card 
I 2 Secondary level number; 0 for first overlay card 
cnnnnnn Optional: load overlay nnnnnng words from start of 
blank common 
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FORTRAN LOAD AND EXECUTE SEGMENTS 


Preparal-ion of 
SEGMENT call 


PreporaHon of 
SEGMENT col! 



Loads SUB6,SUB7 i 
file HELP2 ai leve 


Loads SUB2,SUB3 f 
file HELPl at leve 


^CALL SEGMENT(L,2,L2) 

|/L2(2Fo ~ 

/L2{I)=5L HaP2 


''call SEGMENT(L,1,L2) 


../program STARTl (lNPUT,OUTPUT) 
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OVERLAY PREPARATION OF 0,0; 1,0; AND 1,1 
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